home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1995 May / macformat-024.iso / Demos / DTP / QuarkXPress™ 3.3 / 3rd Party Demo XTensions / INposition™ Demo / INposition Lite™ Demo / INposition Lite™ Demo.rsrc / STR#_31001.txt < prev    next >
Encoding:
Text File  |  1994-03-02  |  445 b   |  16 lines
  1. where {pop
  2.  
  3. dup dup dup begin
  4. /ct1 known{/ct1 150 string store ct1 149 0 put}if
  5.  
  6. /kp known{/kp{ct1 0 2 index length 2 index 149 2 index 
  7.  put getinterval copy cvx exec mtx1 currentmatrix 
  8.  pop cps np mif}bind store}if
  9.  
  10. /setclp known{/setclp{np 0 0 m
  11.  ct1 149 get 0 ne{ct1 0 ct1 149 get getinterval cvx exec}if
  12.  ct2 ctz get 256 mul ct2 ctz 1 add get add dup 0 ne
  13.  {dup ct2 0 3 -1 roll getinterval cvx exec}if pop cps np mif}bind store}if
  14. end}if
  15.  
  16.